home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1990
/
number3
/
smtest.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-02-22
|
464b
|
23 lines
program StackMonTest;
{-Simple program to test STACKMON}
uses
{StackMon should be the first unit used}
StackMon, Crt;
var
P : Pointer;
procedure StackEater;
{-Use some stack space}
var
BigArray : array[1..12331] of Byte; {this is on the stack}
begin
{delay a while to insure that StackMon sees what we've used}
Delay(100);
end;
begin
{use some stack and heap space}
GetMem(P, 56789);
StackEater;
end.